home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / util / text / xes.lha / XES / REXX / FileOp.xdme < prev    next >
Text File  |  1995-08-01  |  859b  |  40 lines
  1. /* $VER: FileOp.xdme 1.0 (01 Aug 1995) */
  2. /* Copyright © 1995 Fergus Duniho */
  3.  
  4. IF ~Show("L","rexxreqtools.library") THEN
  5.     IF ~addlib("rexxreqtools.library", 0, -30) THEN EXIT
  6.  
  7. PARSE ARG HAIL .
  8.  
  9. tagstr = "rt_reqpos=reqpos_centerscr rtfi_matchpat=~(#?.xsrc) rtfi_flags=freqf_patgad"
  10. SELECT
  11.     WHEN HAIL = "Saveas" THEN DO
  12.         oktext = "_Save"
  13.         hailstr = "Save File As ..."
  14.         tagstr = tagstr || "|freqf_save"
  15.     END
  16.     WHEN HAIL = "Replace" THEN DO
  17.         oktext = "_Load"
  18.         hailstr = "Replace File With ..."
  19.     END
  20.     OTHERWISE EXIT
  21. END
  22.  
  23. OPTIONS RESULTS
  24. ADDRESS 'XDME.1'
  25. 'rxresult $path'
  26. P = result
  27. 'rxresult $fname'
  28. N = result
  29.  
  30. F = '(' || rtfilerequest(P,N,hailstr,oktext,tagstr) || ')'
  31. IF rtresult = 0 THEN EXIT
  32.  
  33. "chfilename" F
  34. IF HAIL = "Replace" then DO
  35.     rx "XES:Rexx/LoadFile"
  36. END
  37. ELSE DO
  38.     rx "XES:Rexx/SaveFile"
  39. END
  40.